home *** CD-ROM | disk | FTP | other *** search
/ Deutsche Edition 1 / Deutsche Edition 1.iso / amok / 051-060 / amok51 / m2 / defs / randomnumber.def < prev    next >
Text File  |  1993-11-04  |  603b  |  22 lines
  1. DEFINITION MODULE RandomNumber; (* jr/2jul87 *)
  2. (*$ LargeVars:=FALSE NameChk:=FALSE *)
  3.  
  4. PROCEDURE Random(): REAL;
  5. (*
  6.   This function returns real pseudo-random numbers in the range [0,1).
  7.   It is guaranteed that the period of the sequence is greater than 2^23.
  8. *)
  9.  
  10. PROCEDURE RND(n: LONGINT): LONGINT;
  11. (*
  12.   This function returns integer pseudo-random numbers in the range [0,n).
  13.   It's function can be thought as rolling a dice with n sides. So you can
  14.   implement a 'true' dice with a function like: eyes:=RND(6)+1
  15. *)
  16.  
  17. PROCEDURE GetSeed(VAR s:LONGINT);
  18.  
  19. PROCEDURE PutSeed(s:LONGINT);
  20.  
  21. END RandomNumber.
  22.